object Batchform: TBatchform Left = 216 Top = 173 Width = 425 Height = 355 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Batch Tool' Color = clBtnFace Constraints.MinHeight = 355 Constraints.MinWidth = 425 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnShow = FormShow DesignSize = ( 417 321) PixelsPerInch = 96 TextHeight = 13 object Topbevel: TBevel Left = 0 Top = 65 Width = 417 Height = 8 Align = alTop Shape = bsTopLine end object Fileslabel: TLabel Left = 8 Top = 72 Width = 24 Height = 13 Caption = 'Files:' end object Formatlabel: TLabel Left = 112 Top = 251 Width = 71 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Archive format:' end object Bottombevel: TBevel Left = 8 Top = 280 Width = 402 Height = 9 Anchors = [akLeft, akRight, akBottom] Shape = bsTopLine end object Addbutton: TSpeedButton Left = 8 Top = 248 Width = 23 Height = 22 Hint = 'Add a new file to the list.' Anchors = [akLeft, akBottom] Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FF00FFFF00FF FF00FFFF00FF6666666666666666666666666666666666666666666666666666 66666666666666666666FF00FFFF00FFFF00FFAE7B6ED9AD9DD6A89AD3A698D2 A497CCA199C99E97C69C96C69C96C19693B6918BB88E8B666666FF00FFFF00FF FF00FFB58272FCE1CAFCE1CAFBDEC5FBDEC5FAD9BDFAD9BDFAD6B8FAD6B8FAD0 AEFAD0AEEEBDA5666666FF00FFFF00FFFF00FFBB8875FCE1CAFCE1CAFCE1CAFB DEC5FBDEC5FAD9BDFAD9BDFAD6B8FAD6B8FAD0AEEFBFA8666666FF00FFFF00FF FF00FFC28F79FCE8D7FCE5D1FCE1CAFCE1CAFBDEC5FBDEC5FAD9BDFAD9BDFAD6 B8FAD6B8F0C1AB666666FF00FFFF00FFFF00FFC8957CFCE8D7FCE5D1FCE5D1FC E5D1FCE1CAFBE0C9FBDEC5FBDEC5FAD9BDFAD9BDF0C1AB666666FF00FFFF00FF FF00FFCF9C80FCE8D7FDECDEFCE8D7FCE5D1FCE5D1FCE1CAFCE1CAFBDEC5FBDE C5FAD9BDF1C5B1666666FF00FFFF00FFFF00FFD7AC920832FFF2E8E5FCE8D7FC E5D1FCE5D1FCE5D1FCE1CAFCE1CAFBDEC5FBDEC5F2C8B6666666FF00FFBAC7FE BBCAFDD6A89A001DFFF2E8E5ADB8EB4557BAFCE8D7FCE8D7FCE5D1FCE1CAFCE1 CAFBDEC5F2C8B6666666FF00FFFF00FF062EFF3674CA0087FD509DF0001DFF70 72A6FCE8D7FCE8D7FCE8D7FCE5D1FCE5D1FCE1CAF3CCBA666666FF00FFB9DDFF 41A0FF00C2FF1CE5FF01D3FF2568BCC4BBCCC8C5E3EFDED5FCE8D7FCE8D7FCE8 D7FCE5D1F3CCBA6666665979F90723F6177BF40CDFFF87F9FF17E3FF0583F206 2EFF1944F7D1C5C8FDECDEFDECDEFCE8D7FCE5D1F3CCBA666666FF00FFFF00FF 849CD700BCFF0CDFFF00C2FF446EBDE1DBE5F2E8E8FDF3EBFDEFE2FFD5CCFFD5 CCF5B3AAB3887E666666FF00FFFF00FF062EFF59619A0067FE6581BD0231FF61 6CB5FDF3EBFDF3EBFDF3EBF7A643F7A643E09241666666FF00FFFF00FFFF00FF FF00FFCF9C80062EFFD9D5D6B2B7DC7E91E8FEF8F1FDF3EBFDF3EBDCA987EAB3 77666666FF00FFFF00FFFF00FFFF00FFFF00FFD1A38B4155DBBC917CDCA987DC A987DCA987DEAB88D6A384DCA987666666FF00FFFF00FFFF00FF} ParentShowHint = False ShowHint = True OnClick = AddbuttonClick end object Removebutton: TSpeedButton Left = 56 Top = 248 Width = 23 Height = 22 Hint = 'Remove the selected file/folder from the list.' Anchors = [akLeft, akBottom] Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FF0732DE0732DEFF00FF0732DE0732DEFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FF0732DE0732DEFF00FFFF00FF0732DE 0732DE0732DEFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0732 DE0732DEFF00FFFF00FFFF00FF0732DE0732DD0732DE0732DEFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FF0732DE0732DEFF00FFFF00FFFF00FFFF00FFFF00FF 0534ED0732DF0732DE0732DEFF00FFFF00FFFF00FFFF00FF0732DE0732DEFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0732DE0732DE0732DDFF 00FF0732DD0732DE0732DEFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FF0732DD0633E60633E60633E90732DCFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0633E307 32E30534EFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FFFF00FF0732DD0534ED0533E90434EF0434F5FF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0434F40534EF0533EBFF 00FFFF00FF0434F40335F8FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FF0335FC0534EF0434F8FF00FFFF00FFFF00FFFF00FF0335FC0335FBFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FF0335FB0335FB0335FCFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FF0335FB0335FBFF00FFFF00FFFF00FFFF00FF0335FB 0335FB0335FBFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FF0335FBFF00FFFF00FF0335FB0335FB0335FBFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0335FB0335FB FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} ParentShowHint = False ShowHint = True OnClick = RemovebuttonClick end object Clearbutton: TSpeedButton Left = 80 Top = 248 Width = 23 Height = 22 Hint = 'Clear the list.' Anchors = [akLeft, akBottom] Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF8A884B8A884B8A884B82 80438A884B8A884BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FF8A884BE1E2A7E1D68AE1D68AE1D68AC2C277918F4B8A884BFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FF8A884BFFF9C7FFEEA7F9E29DE7CF9DEE CFA7F4D694FFF4A7EEE8B38A884B828043FF00FFFF00FFFF00FFFF00FFFF00FF F4D694FFF4B3FFE8A7EED6B3EEE2C700B600CEEE9DCEEE9DCEEE9DFFFFD2CECF 8A8A884BFF00FFFF00FFFF00FFFF00FFEED677FFDC80F4E8D2EEE2C7EEE2C700 B60000B60000B60000B600B4E280FFF4B38A884BFF00FFFF00FFFF00FFFF00FF FFD66EFFF9E9F9F4E9F4E8D2E7C99D00B60000B60072CF34DBEEBD62C926FFE2 8098965BFF00FFFF00FFFF00FFF4E8BDFFE8A7FFFFFFFFFFFFE1C294EECFA7A7 E26ECEEE9D62C926C2E894C2E894E1D680ADAF658A884BFF00FFFF00FFF4E89D FFFFD2FFFFF4F4E8D2E1BC8AEECFA762C926FFFFF491D65300B60000B600FFEE 9DADAF658A884BFF00FFFF00FFFFE8A7FFFFE9FFFFE9F4E8BDEEE2C7EEDCB3CE CF8A24B60546C21300B60000B600FFF4B3E1D68A8A884BFF00FFFF00FFFFE8A7 FFFFD2FFFFDEFFFFDEFFFFE9EEFFFFF9EEDEC2E894B4E28091D65300B600FFF9 D2E1DC9D8A884BFF00FFFF00FFFFE8A7FFFFD2FFFFD2FFFFDEEEFFF4EEFFF4E7 FFFFFFFFFFFFFFFFFFFFFFFFFFF4FFFFE9FFFFD28A884BFF00FFFF00FFFF00FF FFE8A7FFE8A7E7F4C7E7F4C7E7F4C7E7F4C7E7F4C7E7F4C7EEF9F4FFEE9DFFFF D2FFFFD28A884BFF00FFFF00FFFF00FFFF00FFFF00FFBBE8FFEEFFFFE7FFFFE7 FFFFE7FFFFEEFFFFBBE8F4FFD66EFFDC80FFF9BD8A884BFF00FFFF00FFFF00FF FF00FFFF00FFFF00FFBBE8F4BBE8F4BBE8F4D5FFFFD5FFFFBBE8F4FFD677FFDC 77FFE2808A884BFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF 00FFBBE8F4BBE8F4BBE8F4FFDC77FFDC77FFDC77FF00FFFF00FF} ParentShowHint = False ShowHint = True OnClick = ClearbuttonClick end object Addfolderbutton: TSpeedButton Left = 32 Top = 248 Width = 23 Height = 22 Hint = 'Add a new folder to the list.' Anchors = [akLeft, akBottom] Flat = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000120B0000120B00000000000000000000FF00FF078DBE 078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBE078D BE078DBEFF00FFFF00FF078DBE63CBF8078DBEA3E1FB66CDF965CDF865CDF965 CDF965CDF865CDF965CDF866CDF83AADD8ACE7F5078DBEFF00FF078DBE6AD1F9 078DBEA8E5FC6FD4FA6FD4F96ED4FA6FD4F96FD4FA6FD4FA6FD4FA6ED4F93EB1 D9B1EAF5078DBEFF00FF078DBE72D6FA078DBEAEEAFC79DCFB79DCFB79DCFB79 DCFB79DCFB7ADCFB79DCFA79DCFA44B5D9B6EEF6078DBEFF00FF078DBE79DDFB 078DBEB5EEFD83E4FB84E4FB83E4FC83E4FC84E4FC83E4FC83E4FB84E5FC48B9 DABBF2F6078DBEFF00FF078DBE82E3FC078DBEBAF3FD8DEBFC8DEBFC8DEBFC8D EBFD8DEBFD8DEBFC8DEBFD8DEBFC4CBBDABEF4F7078DBEFF00FF078DBE8AEAFC 078DBEFFFFFFC9F7FEC8F7FEC9F7FEC9F7FEC9F7FEC8F7FEC9F7FEC8F7FE9BD5 E7DEF9FB078DBEFF00FF078DBE93F0FE078DBE078DBE001DFF078DBE078DBE07 8DBE078DBE078DBE078DBE078DBE078DBE078DBE078DBEFF00FF078DBE9BF5FE 9AF6FE9AF6FE001DFF9BF6FE9AF6FE4557BA9AF6FD9BF5FE9AF6FE9AF6FE0989 BAFF00FFFF00FFFF00FF078DBEFEFEFE062EFF3674CA0087FD509DF0001DFF70 72A6A1FBFEA1FBFFA0FBFFA1FBFF0989BAFF00FFFF00FFFF00FFFF00FFB9DDFF 41A0FF00C2FF1CE5FF01D3FF2568BCC4BBCCC8C5E3078DBE078DBE078DBEFF00 FFFF00FFFF00FFFF00FF5979F90723F6177BF40CDFFF87F9FF17E3FF0583F206 2EFF1944F7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF 849CD700BCFF0CDFFF00C2FF446EBDFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FF062EFF59619A0067FE6581BD0231FF61 6CB5FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF00FFFF00FF062EFFFF00FFFF00FF7E91E8FF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF4155DBFF00FFFF00FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF} OnClick = AddfolderbuttonClick end object Toppanel: TPanel Left = 0 Top = 0 Width = 417 Height = 65 Align = alTop BevelOuter = bvNone Color = clWhite TabOrder = 0 DesignSize = ( 417 65) object Captionlabel: TLabel Left = 8 Top = 8 Width = 132 Height = 13 Caption = 'Batch Archive Creation' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Infolabel: TLabel Left = 16 Top = 24 Width = 335 Height = 26 Caption = 'Please add the files that you want to use in the batch creation ' + 'in the list below. Specify a output archive format and press OK ' + 'to continue.' WordWrap = True end object Image: TImage Left = 361 Top = 8 Width = 48 Height = 48 Anchors = [akTop, akRight] AutoSize = True Picture.Data = {} Transparent = True end end object Listview: TListView Left = 8 Top = 88 Width = 401 Height = 153 Anchors = [akLeft, akTop, akRight, akBottom] Columns = < item AutoSize = True Caption = 'Name' end> ReadOnly = True RowSelect = True TabOrder = 1 ViewStyle = vsReport end object Formatcombobox: TComboBox Left = 192 Top = 248 Width = 217 Height = 21 Style = csDropDownList Anchors = [akLeft, akRight, akBottom] ItemHeight = 13 TabOrder = 2 end object Cancelbutton: TButton Left = 336 Top = 288 Width = 75 Height = 25 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object Okbutton: TButton Left = 256 Top = 288 Width = 75 Height = 25 Anchors = [akRight, akBottom] Caption = 'OK' Default = True ModalResult = 1 TabOrder = 4 end object Helpbutton: TButton Left = 8 Top = 288 Width = 75 Height = 25 Anchors = [akLeft, akBottom] Caption = 'Help' TabOrder = 5 OnClick = HelpbuttonClick end object Opendialog: TOpenDialog Filter = 'All Files (*.*)|*.*' Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] Left = 8 Top = 8 end end